home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Controls
/
Visual Basic Controls.iso
/
vbcontrol
/
qotd
/
frmtestq.frm
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1999-08-10
|
1KB
|
42 lines
VERSION 5.00
Begin VB.Form frmTestQOTD
BorderStyle = 3 'Fixed Dialog
Caption = "Test QOTD"
ClientHeight = 1020
ClientLeft = 1800
ClientTop = 1935
ClientWidth = 5460
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1020
ScaleWidth = 5460
ShowInTaskbar = 0 'False
Begin VB.CommandButton cmdShowQOTD
Caption = "Show QOTD"
Height = 720
Left = 165
TabIndex = 0
Top = 165
Width = 1755
End
Attribute VB_Name = "frmTestQOTD"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private NewQuote As New Quotation
Private Sub cmdShowQOTD_Click()
Set NewQuote = New Quotation
With NewQuote
.QuotationBackcolor = tccGreen
.FormCaption = "Your Quotation For Today"
.ShowNextQuoteButton = True
.ShowOnTop = False
.QuotationLogo = tccBulb
.ShowCentre = True
.ShowQuotation
End With
End Sub